home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 November / macformat-030.iso / Shareware City / Applications / chipmunk-basic-321 ƒ / wc.bas < prev   
Encoding:
BASIC Source File  |  1994-09-09  |  345 b   |  14 lines  |  [TEXT/cBaS]
  1. 100 rem word count
  2. 110 open "SFGetFile" for input as #1
  3. 120 c = 0 : w = 0 : lines = 0
  4. 200 input #1,a$
  5. 300 if eof(1) then goto 900
  6. 400 i = 0 : while field$(a$,i+1," ") <> "" : i = i+1 : wend
  7. 500 w = w+i
  8. 600 c = c+len(a$)+1 ' for the CR
  9. 700 lines = lines+1
  10. 800 goto 200
  11. 900 print c;" characters, ";w;"words, ";lines;"lines"
  12. 1000 close #1
  13. 1100 end
  14.